object frmConnect: TfrmConnect
  Left = 459
  Top = 316
  HelpContext = 2
  AutoSize = True
  BorderStyle = bsDialog
  Caption = #1057#1086#1077#1076#1080#1085#1077#1085#1080#1077' '#1089' '#1041#1044
  ClientHeight = 202
  ClientWidth = 423
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 423
    Height = 165
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 30
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1057#1077#1088#1074#1077#1088':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 62
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1041#1044':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 94
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 126
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1072#1088#1086#1083#1100':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object eServer: TEdit
      Left = 104
      Top = 28
      Width = 300
      Height = 21
      TabStop = False
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = clBtnFace
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object eDbPath: TEdit
      Left = 104
      Top = 60
      Width = 300
      Height = 21
      TabStop = False
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Color = clBtnFace
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object eLgName: TEdit
      Left = 104
      Top = 92
      Width = 300
      Height = 21
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnKeyDown = eLgNameKeyDown
    end
    object ePwd: TEdit
      Left = 104
      Top = 124
      Width = 300
      Height = 21
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 3
      OnKeyDown = eLgNameKeyDown
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 165
    Width = 423
    Height = 37
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Bevel1: TBevel
      Left = 8
      Top = 6
      Width = 25
      Height = 25
    end
    object lblKeyboard: TLabel
      Left = 10
      Top = 8
      Width = 21
      Height = 21
      Alignment = taCenter
      AutoSize = False
      Caption = 'EN'
      Color = clNavy
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object bCancel: TButton
      Left = 312
      Top = 6
      Width = 91
      Height = 25
      Caption = #1054#1090#1084#1077#1085#1072
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ModalResult = 2
      ParentFont = False
      TabOrder = 2
    end
    object bLogin: TButton
      Left = 120
      Top = 8
      Width = 91
      Height = 23
      Caption = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = bLoginClick
    end
    object bOptions: TButton
      Left = 216
      Top = 6
      Width = 91
      Height = 25
      Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = bOptionsClick
    end
  end
  object dbOrg: TpFIBDatabase
    DBName = '172.16.0.100:develop_grad2'
    DBParams.Strings = (
      'lc_ctype=WIN1251'
      'user_name=PLASMORF'
      'sql_role_name=RDB$ADMIN'
      'password=ytdbyyjcnm')
    DefaultTransaction = trOrg
    SQLDialect = 3
    Timeout = 0
    DesignDBOptions = []
    WaitForRestoreConnect = 0
    Left = 220
    Top = 12
  end
  object trOrg: TpFIBTransaction
    DefaultDatabase = dbOrg
    TimeoutAction = TARollback
    Left = 252
    Top = 12
  end
  object dsGetRole: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    RROLE,'
      
        '    iif(exists(select 1 from USER_GETORGCODE), 1, 0) as is_membe' +
        'r'
      'FROM'
      '    USER_GET_ACCESS(null) ')
    Transaction = trOrg
    Database = dbOrg
    Left = 212
    Top = 88
    poSQLINT64ToBCD = True
    object dsGetRoleRROLE: TFIBStringField
      FieldName = 'RROLE'
      Size = 60
      EmptyStrToNull = True
    end
    object dsGetRoleIS_MEMBER: TFIBIntegerField
      FieldName = 'IS_MEMBER'
    end
  end
  object PropStorage: TPropStorageEh
    Section = 'frmConnect'
    StorageManager = MAIN.IniPropStorage
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top')
    Left = 152
    Top = 12
  end
  object Zebedee: TZebedee
    Active = False
    ZebedeeDLL = 'zsasl.dll'
    CompressLevel = lvlNone
    LogFileName = 'Zebedee.log'
    FirebirdPort = 3050
    LocalPort = 0
    ServerPort = 11965
    Left = 188
    Top = 12
  end
end
